home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / game / wb / Detris.lha / Detris3 / Detris-Install < prev    next >
Text File  |  2001-03-12  |  3KB  |  76 lines
  1. ; $VER: Detris-Install v3.1 (11.03.101)
  2. ; Installer script made by Stefan Blixth, OnyxSoft
  3.  
  4. (set #welcome "\nWelcome to Detris 3.1 installer.\n© 2000-2001 Daniel Westerberg, OnyxSoft.\n\nCheck our homepage for more stuff ;-)\n\nwww.onyxsoft.nu\n")
  5. (set #endmsgs "Detris 3.1 has now been installed on your system.\n\nDon't forget to register the program.\nIt's totaly free!!!\n\nPlease use the Easy Register option which pops up when you start an unregistered copy of Detris!")
  6.  
  7. (message #welcome)
  8. (welcome)
  9. (complete 0)
  10.  
  11. ; - create destination dir
  12.  
  13. (set destination
  14.   (askdir (prompt "Please select the destination directory for Detris.\nA sub-directory \"Detris3\" will be created.")
  15.     (default @default-dest)
  16.     (help @askdir-help)
  17.   )
  18. )
  19.  
  20. (set @default-dest destination)
  21.  
  22. (set destination (expandpath destination))
  23. (set destination (tackon destination "Detris3"))
  24.  
  25. (if (<> 0 (exists destination))
  26. (
  27.   (message "There is an older installation of Detris in the same directory.\n\nIt will be updated!")
  28.   )
  29. )
  30.  
  31. (makedir destination)
  32. (run (cat "copy /Detris3.info \"" destination ".info\""))
  33.  
  34. (complete 25)
  35.  
  36. ; - copy main files
  37.  
  38. (copyfiles (prompt "Copying ...") (source "Detris3") (dest destination) (help @copyfiles-help) )
  39. (copyfiles (prompt "Copying ...") (source "Detris3.info") (dest destination) (help @copyfiles-help) )
  40. (copyfiles (prompt "Copying ...") (source "Detris3.guide") (dest destination) (help @copyfiles-help) )
  41. (copyfiles (prompt "Copying ...") (source "Detris3.guide.info") (dest destination) (help @copyfiles-help) )
  42. (copyfiles (prompt "Copying ...") (source "Detris3.Readme") (dest destination) (help @copyfiles-help) )
  43. (copyfiles (prompt "Copying ...") (source "Detris3.Readme.info") (dest destination) (help @copyfiles-help) )
  44. (copyfiles (prompt "Copying ...") (source "Detris3.img") (dest destination) (help @copyfiles-help) )
  45. (copyfiles (prompt "Copying ...") (source "Detris3 Game Over.img") (dest destination) (help @copyfiles-help) )
  46. (complete 50)
  47.  
  48. ; - copy plugins
  49.  
  50. (makedir (cat destination "/ColourPresets"))
  51. (copyfiles
  52.   (prompt "Copying...")
  53.   (source "ColourPresets/")
  54.   (pattern "#?")
  55.   (dest (cat destination "/ColourPresets"))
  56. )
  57. (complete 66)
  58. (makedir (cat destination "/KeyPresets"))
  59. (copyfiles
  60.   (prompt "Copying...")
  61.   (source "KeyPresets/")
  62.   (pattern "#?")
  63.   (dest (cat destination "/KeyPresets"))
  64. )
  65. (complete 83)
  66. (makedir (cat destination "/GamePresets"))
  67. (copyfiles
  68.   (prompt "Copying...")
  69.   (source "GamePresets/")
  70.   (pattern "#?")
  71.   (dest (cat destination "/GamePresets"))
  72. )
  73.  
  74. (complete 100)
  75. (message #endmsgs)
  76. (exit)